home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DRIVES.SWG
/
0004_DETCDRIV.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
399b
|
14 lines
{│o│ How do I detect active drives in Pascal? My Program would │o║
│o│ crash if you Typed in a non-existent drive as either │o║
│o│ source or destination. │o║
}
Uses Dos;
Var sr : SearchRec;
begin
findfirst('k:\*.*',AnyFile,sr);
if Doserror=0
then Writeln('It is there all right!')
else Writeln('Sorry, could not find it.');
end.